home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / wrt____1.p2s < prev    next >
Encoding:
Text File  |  1993-12-27  |  2.7 KB  |  101 lines
  1. #######################################################################
  2. # OBJECTIVE:
  3. #
  4. # Description:  Open the wave player, load, set record settings,
  5. # record, seek, play, save, close .
  6. #
  7. #  NOTE: Ensure an audio source is connected to the line in jack
  8. #        of the audio card, otherwise it will be a blank record.
  9. #######################################################################
  10.  
  11. ############################################
  12. #
  13. #   OPEN THE DIGITAL AUDIO PLAYER
  14. #   WAIT FOR SUCCESSFUL OPEN
  15. #
  16. ############################################
  17.  
  18. open waveaudio00 alias wave notify
  19. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  20. @WAIT_NOTIFY 1 45000
  21.  
  22. ############################################
  23. #
  24. #   LOAD A NEW FILE TO BE RECORDED
  25. #
  26. ############################################
  27.  
  28. load wave new notify
  29. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  30. @WAIT_NOTIFY 2 30000
  31.  
  32. ############################################
  33. #
  34. #   SET THE DIGITAL AUDIO PLAYER
  35. #   TIME FORMAT - MILLISECONDS
  36. #   BITS PER SAMPLE - 8 BITS
  37. #   SAMPLES PER SEC - 44100 
  38. #   CHANNELS - 1 
  39. #   FORMAT TAG - ALAW 
  40. #
  41. ############################################
  42.  
  43. set wave time format milliseconds wait
  44. status wave time format wait
  45. =milliseconds
  46. set wave bitspersample 8 wait
  47. status wave bitspersample wait
  48. =8
  49. set wave samplespersec 44100 wait
  50. status wave samplespersec wait
  51. =44100
  52. set wave channels 1 wait
  53. status wave channels wait
  54. =1
  55. set wave format tag ALAW wait
  56. status wave format tag wait
  57. =ALAW
  58.  
  59. ############################################
  60. #
  61. #   RECORD THE NEW WAVE FILE
  62. #
  63. ############################################
  64. @REM ***************************************************************
  65. @REM Ensure an audio source is connected to the line in jack of the
  66. @REM audio card, otherwise it will be a blank record.
  67. @REM ***************************************************************
  68.  
  69. record wave from 0 to 10000 notify
  70. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #3
  71. @WAIT_NOTIFY 3 20000
  72.  
  73. ############################################
  74. #
  75. #   SEEK TO START
  76. #   PLAY THE NEW RECORDED FILE
  77. #   SAVE THE NEW RECORDED FILE
  78. #
  79. ############################################
  80.  
  81. seek wave to 0 wait
  82. status wave position wait
  83. =0
  84. play wave notify
  85. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #4
  86. @WAIT_NOTIFY 4 45000
  87. save wave delete.wav notify
  88. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #5
  89. @WAIT_NOTIFY 5 45000
  90.  
  91. ############################################
  92. #
  93. #   CLOSE THE DIGITAL AUDIO PLAYER AND
  94. #   EXPECT A SUCCESSFUL CLOSE
  95. #
  96. ############################################
  97.  
  98. close wave notify
  99. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #6
  100. @WAIT_NOTIFY 6 45000
  101.